home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGASIC / BASFILES.LZH / QBTXFFPT.BAS < prev    next >
BASIC Source File  |  1988-09-10  |  517b  |  22 lines
  1. '$INCLUDE:'QBTOOLS.INC'
  2. '' '$INCLUDE: 'qbtools2.inc'
  3. '' '$INCLUDE: 'qbt2indx.inc'
  4. '' '-------------------------Standard Include Merge Section-------------------
  5.  
  6. DEFSNG A-Z
  7.     SUB IndexFetchForPointer (IxNum%, Ky$, Mrec%, Xnm$(), Xk$(), Xh%(), sc%) STATIC
  8.  
  9.         ' Fetch index the INDEX, the key associated with the index pointer
  10.         ' of Sc%
  11.  
  12.         IF sc% = 0 THEN
  13.             EXIT SUB        ' Zilcho - nothing there!
  14.         END IF
  15.      
  16.         GET #IxNum%, sc%
  17.         Ky$ = Xk$(IxNum%, 1)
  18.         Mrec% = CVI(Xk$(IxNum%, 5))
  19.      
  20.     END SUB
  21.  
  22.